home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
UNIXTOOL
/
MEMACS
/
C
/
Main
< prev
next >
Wrap
Text File
|
1990-06-26
|
23KB
|
1,032 lines
/*
* MicroEMACS 3.11
* written by Daniel M. Lawrence
* based on code by Dave G. Conroy.
*
* (C)Copyright 1988,1989,1990,1991 by Daniel M. Lawrence
* MicroEMACS 3.11 can be copied and distributed freely for any
* non-commercial purposes. MicroEMACS 3.11 can only be incorporated
* into commercial software with the permission of the current author.
*
* This file contains the main driving routine, and some keyboard processing
* code, for the MicroEMACS screen editor.
*
*/
#include <stdio.h>
/* make global definitions not external */
#define maindef
#include "estruct.h" /* global structures and defines */
#include "eproto.h" /* variable prototype definitions */
#include "efunc.h" /* function declarations and name table */
#include "edef.h" /* global definitions */
#include "elang.h" /* human language definitions */
#include "ebind.h" /* default key bindings */
/* for many different systems, increase the default stack space */
#if MSDOS & LATTICE
unsigned _stack = 20000;
#endif
#if MSDOS & DTL
int _okbigbuf = 0; /* Only allocate memory when needed.*/
int _stack = 20000; /* Reset the ol' stack size.*/
#endif
#if ATARI & MWC
long _stksize = 20000L; /* reset stack size (must be even) */
#endif
#if MSDOS & AZTEC
int _STKSIZ = 20000/16; /* stack size in paragraphs */
int _STKRED = 1024; /* stack checking limit */
int _HEAPSIZ = 4096/16; /* (in paragraphs) */
/*int _STKLOW = 0; default is stack above heap (small only) */
#endif
#if MSDOS & TURBO
extern unsigned int _stklen = 10000;
#endif
#if ARM
extern char *dirscan (char *);
#endif
/* make VMS happy... */
#if VMS
#include <ssdef.h>
#define GOOD (SS$_NORMAL)
#endif
#ifndef GOOD
#define GOOD 0
#endif
/*
This is the primary entry point that is used by command line
invocation, and by applications that link with microemacs in
such a way that each invocation of Emacs is a fresh environment.
There is another entry point in VMS.C that is used when
microemacs is "linked" (In quotes, because it is a run-time link
rather than a link-time link.) with applications that wish Emacs
to preserve it's context across invocations. (For example,
EMACS.RC is only executed once per invocation of the
application, instead of once per invocation of Emacs.)
Note that re-entering an Emacs that is saved in a kept
subprocess would require a similar entrypoint.
*/
#if CALLED
emacs(argc, argv)
#else
#if VMS
me$edit(argc, argv)
MAIN_PROGRAM
#else
main(argc, argv)
#endif
#endif
int argc; /* # of arguments */
char *argv[]; /* argument strings */
{
register int status;
/* Initialize the editor */
eexitflag = FALSE;
vtinit(); /* Terminal */
if (eexitflag)
goto abortrun;
edinit("main"); /* Buffers, windows, screens */
varinit(); /* user variables */
initchars(); /* character set definitions */
/* Process the command line and let the user edit */
dcline(argc, argv, TRUE);
status = editloop();
abortrun:
vttidy();
#if CLEAN
clean();
#endif
#if CALLED
return(status);
#else
exit(status);
#endif
}
#if CLEAN
/*
On some primitive operation systems, and when emacs is used as
a subprogram to a larger project, emacs needs to de-alloc its
own used memory, otherwise we just exit.
*/
PASCAL NEAR clean()
{
register BUFFER *bp; /* buffer list pointer */
register SCREEN *scrp; /* ptr to screen to dump */
/* first clean up the screens */
scrp = first_screen;
while (wp) {
first_screen = sp->s_next_screen;
free_screen(scrp);
sp = first_screen;
}
cur_screen->s_first_window = cur_screen->w_cur_window = wheadp = NULL;
/* then the buffers */
bp = bheadp;
while (bp) {
bp->b_nwnd = 0;
bp->b_flag = 0; /* don't say anything about a changed buffer! */
zotbuf(bp);
bp = bheadp;
}
/* the screens */
/***************/
/* and the kill buffer */
kdelete();
/* clear some search variables */
#if MAGIC
mcclear();
rmcclear();
#endif
if (patmatch != NULL) {
free(patmatch);
patmatch = NULL;
}
/* dealloc the user variables */
varclean();
/* and the video buffers */
vtfree();
}
#endif
/* Process a command line. May be called any time. */
PASCAL NEAR dcline(argc, argv, firstflag)
int argc;
char *argv[];
int firstflag; /* is this the first time in? */
{
register BUFFER *bp; /* temp buffer pointer */
register int firstfile; /* first file flag */
register int carg; /* current arg to scan */
register int startflag; /* startup executed flag */
BUFFER *firstbp = NULL; /* ptr to first buffer in cmd line */
int viewflag; /* are we starting in view mode? */
int gotoflag; /* do we need to goto a line at start? */
int gline; /* if so, what line? */
int searchflag; /* Do we need to search at start? */
int errflag; /* C error processing? */
VDESC vd; /* variable num/type */
char bname[NBUFN]; /* buffer name of file to read */
#if CRYPT
int cryptflag; /* encrypting on the way in? */
char ekey[NPAT]; /* startup encryption key */
#endif
CONST NOSHARE extern *pathname[]; /* startup file path/name array */
viewflag = FALSE; /* view mode defaults off in command line */
gotoflag = FALSE; /* set to off to begin with */
searchflag = FALSE; /* set to off to begin with */
firstfile = TRUE; /* no file to edit yet */
startflag = FALSE; /* startup file not executed yet */
errflag = FALSE; /* not doing C error parsing */
#if CRYPT
cryptflag = FALSE; /* no encryption by default */
#endif
disphigh = FALSE; /* don't escape high bit characters */
lterm[0] = 0; /* standard line terminators */
/* Parse a command line */
for (carg = 1; carg < argc; ++carg) {
/* Process Switches */
#if WMCS
if (argv[carg][0] == ':') {
#else
if (argv[carg][0] == '-') {
#endif
switch (argv[carg][1]) {
/* Process Startup macroes */
case 'c': /* -c for changable file */
case 'C':
viewflag = FALSE;
break;
case 'e': /* -e process error file */
case 'E':
errflag = TRUE;
break;
case 'g': /* -g for initial goto */
case 'G':
gotoflag = TRUE;
gline = asc_int(&argv[carg][2]);
break;
case 'i': /* -i<var> <value> set an initial */
case 'I': /* value for a variable */
bytecopy(bname, &argv[carg][2], NVSIZE);
findvar(bname, &vd, NVSIZE + 1);
if (vd.v_type == -1) {
mlwrite(TEXT52, bname);
/* "%%No such variable as '%s'" */
break;
}
svar(&vd, argv[++carg]);
break;
#if CRYPT
case 'k': /* -k<key> for code key */
case 'K':
cryptflag = TRUE;
strcpy(ekey, &argv[carg][2]);
break;
#endif
case 'r': /* -r restrictive use */
case 'R':
restflag = TRUE;
break;
case 's': /* -s for initial search string */
case 'S':
searchflag = TRUE;
bytecopy(pat,&argv[carg][2],NPAT);
setjtable();
break;
case 'v': /* -v for View File */
case 'V':
viewflag = TRUE;
break;
default: /* unknown switch */
/* ignore this for now */
break;
}
} else if (argv[carg][0]== '@') {
/* Process Startup macroes */
if (startup(&argv[carg][1]) == TRUE)
/* don't execute emacs.rc */
startflag = TRUE;
} else {
#if ARM
/* For the Archimedes, parse wildcards */
char *name;
for (name = dirscan(argv[carg]); name; name = dirscan(0))
{
#else
#define name (argv[carg])
#endif
/* Process an input file */
/* set up a buffer for this file */
makename(bname, name);
unqname(bname);
/* set this to inactive */
bp = bfind(bname, TRUE, 0);
strcpy(bp->b_fname, name);
bp->b_active = FALSE;
if (firstfile) {
firstbp = bp;
firstfile = FALSE;
}
/* set the modes appropriatly */
if (viewflag)
bp->b_mode |= MDVIEW;
#if CRYPT
if (cryptflag) {
bp->b_mode |= MDCRYPT;
crypt((char *)NULL, 0);
crypt(ekey, strlen(ekey));
bytecopy(bp->b_key, ekey, NPAT);
}
#endif
#if ARM
}
#else
#undef name
#endif
}
}
/* if we are C error parsing... run it! */
if (errflag) {
if (startup(ERRORCMD) == TRUE)
startflag = TRUE;
}
/* if invoked with no other startup files,
run the system startup file here */
if (firstflag && startflag == FALSE)
startup("");
/* if there are any files to read, read the first one! */
if (firstflag) {
bp = bfind("main", FALSE, 0);
if (firstfile == FALSE && (gflags & GFREAD)) {
swbuffer(firstbp);
curbp->b_mode |= gmode;
update(TRUE);
mlwrite(lastmesg);
zotbuf(bp);
} else
bp->b_mode |= gmode;
} else {
swbuffer(firstbp);
curbp->b_mode |= gmode;
update(TRUE);
mlwrite(lastmesg);
}
/* Deal with startup gotos and searches */
if (gotoflag && searchflag) {
update(FALSE);
mlwrite(TEXT101);
/* "[Can not search and goto at the same time!]" */
}
else if (gotoflag) {
if (gotoline(TRUE,gline) == FALSE) {
update(FALSE);
mlwrite(TEXT102);
/* "[Bogus goto argument]" */
}
} else if (searchflag) {
if (forwhunt(FALSE, 0) == FALSE)
update(FALSE);
}
}
/*
This is called to let the user edit something. Note that if you
arrange to be able to call this from a macro, you will have
invented the "recursive-edit" function.
*/
PASCAL NEAR editloop()
{
register int c; /* command character */
register int f; /* default flag */
register int n; /* numeric repeat count */
register int mflag; /* negative flag on repeat */
register int basec; /* c stripped of meta character */
register int oldflag; /* old last flag value */
/* setup to process commands */
lastflag = 0; /* Fake last flags. */
loop:
/* if we were called as a subroutine and want to leave, do so */
if (eexitflag)
return(eexitval);
/* execute the "command" macro...normally null */
oldflag = lastflag; /* preserve lastflag through this */
execkey(&cmdhook, FALSE, 1);
lastflag = oldflag;
/* Fix up the screen */
update(FALSE);
/* get the next command from the keyboard */
c = getkey();
/* if there is something on the command line, clear it */
if (mpresf != FALSE) {
mlerase();
update(FALSE);
}
/* override the arguments if prefixed */
if (prefix) {
if (islower(c & 255))
c = (c & ~255) | upperc(c & 255);
c |= prefix;
f = predef;
n = prenum;
prefix = 0;
} else {
f = FALSE;
n = 1;
}
/* do META-# processing if needed */
basec = c & ~META; /* strip meta char off if there */
if ((c & META) && ((basec >= '0' && basec <= '9') || basec == '-') &&
(getbind(c) == NULL)) {
f = TRUE; /* there is a # arg */
n = 0; /* start with a zero default */
mflag = 1; /* current minus flag */
c = basec; /* strip the META */
while ((c >= '0' && c <= '9') || (c == '-')) {
if (c == '-') {
/* already hit a minus or digit? */
if ((mflag == -1) || (n != 0))
break;
mflag = -1;
} else {
n = n * 10 + (c - '0');
}
if ((n == 0) && (mflag == -1)) /* lonely - */
mlwrite("Arg:");
else
mlwrite("Arg: %d",n * mflag);
c = getkey(); /* get the next key */
}
n = n * mflag; /* figure in the sign */
}
/* do ^U repeat argument processing */
if (c == reptc) { /* ^U, start argument */
f = TRUE;
n = 4; /* with argument of 4 */
mflag = 0; /* that can be discarded. */
mlwrite("Arg: 4");
while ((c=getkey()) >='0' && c<='9' || c==reptc || c=='-') {
if (c == reptc)
if ((n > 0) == ((n*4) > 0))
n = n*4;
else
n = 1;
/*
* If dash, and start of argument string, set arg.
* to -1. Otherwise, insert it.
*/
else if (c == '-') {
if (mflag)
break;
n = 0;
mflag = -1;
}
/*
* If first digit entered, replace previous argument
* with digit and set sign. Otherwise, append to arg.
*/
else {
if (!mflag) {
n = 0;
mflag = 1;
}
n = 10*n + c - '0';
}
mlwrite("Arg: %d", (mflag >=0) ? n : (n ? -n : -1));
}
/*
* Make arguments preceded by a minus sign negative and change
* the special argument "^U -" to an effective "^U -1".
*/
if (mflag == -1) {
if (n == 0)
n++;
n = -n;
}
}
/* and execute the command */
execute(c, f, n);
goto loop;
}
/*
* Initialize all of the buffers, windows and screens. The buffer name is
* passed down as an argument, because the main routine may have been told
* to read in a file by default, and we want the buffer name to be right.
*/
PASCAL NEAR edinit(bname)
char bname[]; /* name of buffer to initialize */
{
register BUFFER *bp;
/* initialize some important globals */
readhook.k_ptr.fp = nullproc; /* set internal hooks to OFF */
readhook.k_type = BINDFNC;
wraphook.k_ptr.fp = wrapword;
wraphook.k_type = BINDFNC;
cmdhook.k_ptr.fp = nullproc;
cmdhook.k_type = BINDFNC;
writehook.k_ptr.fp = nullproc;
writehook.k_type = BINDFNC;
bufhook.k_ptr.fp = nullproc;
bufhook.k_type = BINDFNC;
exbhook.k_ptr.fp = nullproc;
exbhook.k_type = BINDFNC;
/* allocate the first buffer */
bp = bfind(bname, TRUE, 0); /* First buffer */
blistp = bfind("[List]", TRUE, BFINVS); /* Buffer list buffer */
slistp = bfind("[Screens]", TRUE, BFINVS); /* Buffer list buffer */
if (bp==NULL || blistp==NULL)
meexit(1);
/* and allocate the default screen */
first_screen = init_screen("MAIN", bp);
if (first_screen == (SCREEN *)NULL)
meexit(1);
/* set the current default screen/buffer/window */
cur_screen = first_screen;
scr_num = 1;
curbp = bp;
curwp = wheadp = cur_screen->s_cur_window = cur_screen->s_first_window;
}
/*
* This is the general command execution routine. It handles the fake binding
* of all the keys to "self-insert". It also clears out the "thisflag" word,
* and arranges to move it to the "lastflag", so that the next command can
* look at it. Return the status of command.
*/
PASCAL NEAR execute(c, f, n)
int c; /* key to execute */
int f; /* prefix argument flag */
int n; /* prefix value */
{
register int status;
KEYTAB *key; /* key entry to execute */
#if DBCS
int schar; /* second key in 2 byte sequence */
#endif
/* if the keystroke is a bound function...do it */
key = getbind(c);
if (key != NULL) {
thisflag = 0;
status = execkey(key, f, n);
lastflag = thisflag;
return(status);
}
/*
* If a space was typed, fill column is defined, the argument is non-
* negative, wrap mode is enabled, and we are now past fill column,
* and we are not read-only, perform word wrap.
*/
if (c == ' ' && (curwp->w_bufp->b_mode & MDWRAP) && fillcol > 0 &&
n >= 0 && getccol(FALSE) > fillcol &&
(curwp->w_bufp->b_mode & MDVIEW) == FALSE)
execkey(&wraphook, FALSE, 1);
if ((c>=0x20 && c<=0xFF)) { /* Self inserting. */
if (n <= 0) { /* Fenceposts. */
lastflag = 0;
return(n<0 ? FALSE : TRUE);
}
thisflag = 0; /* For the future. */
/* replace or overwrite mode, not at the end of a string */
if (curwp->w_bufp->b_mode & (MDREPL | MDOVER) &&
curwp->w_doto < curwp->w_dotp->l_used) {
/* if we are in replace mode, or
(next char is not a tab or we are at a tab stop) */
if (curwp->w_bufp->b_mode & MDREPL ||
(lgetc(curwp->w_dotp, curwp->w_doto) != '\t' ||
(curwp->w_doto) % tabsize == (tabsize - 1)))
ldelete(1L, FALSE);
}
/* do the appropriate insertion */
if (c == '}' && (curbp->b_mode & MDCMOD) != 0)
status = insbrace(n, c);
else if (c == '#' && (curbp->b_mode & MDCMOD) != 0)
status = inspound();
#if DBCS
else if (is2char(c)) {
schar = getkey();
status = TRUE;
while (n--) {
if (linsert(1, c) == FALSE)
status = FALSE;
if (linsert(1, schar) == FALSE)
status = FALSE;
}
}
#endif
else
status = linsert(n, c);
/* check for CMODE fence matching */
if ((c == '}' || c == ')' || c == ']') &&
(curbp->b_mode & MDCMOD) != 0)
fmatch(c);
/* check auto-save mode */
if (curbp->b_mode & MDASAVE)
if (--gacount == 0) {
/* and save the file if needed */
upscreen(FALSE, 0);
filesave(FALSE, 0);
gacount = gasave;
}
lastflag = thisflag;
return(status);
}
TTbeep();
mlwrite(TEXT19); /* complain */
/* "[Key not bound]" */
lastflag = 0; /* Fake last flags. */
return(FALSE);
}
/*
Fancy quit command, as implemented by Norm. If the any buffer
has changed do a write on that buffer and exit emacs, otherwise simply
exit.
*/
PASCAL NEAR quickexit(f, n)
int f,n; /* prefix flag and argument */
{
register BUFFER *bp; /* scanning pointer to buffers */
register BUFFER *oldcb; /* original current buffer */
register int status;
oldcb = curbp; /* save in case we fail */
bp = bheadp;
while (bp != NULL) {
if ((bp->b_flag&BFCHG) != 0 /* Changed. */
&& (bp->b_flag&BFINVS) == 0) { /* Real. */
curbp = bp; /* make that buffer cur */
mlwrite(TEXT103,bp->b_fname);
/* "[Saving %s]" */
mlwrite("\n");
if ((status = filesave(f, n)) != TRUE) {
curbp = oldcb; /* restore curbp */
return(status);
}
}
bp = bp->b_bufp; /* on to the next buffer */
}
quit(f, n); /* conditionally quit */
return(TRUE);
}
/*
* Quit command. If an argument, always quit. Otherwise confirm if a buffer
* has been changed and not written out. Normally bound to "C-X C-C".
*/
PASCAL NEAR quit(f, n)
int f,n; /* prefix flag and argument */
{
register int status; /* return status */
if (f != FALSE /* Argument forces it. */
|| anycb() == FALSE /* All buffers clean or user says it's OK. */
|| (status = mlyesno(TEXT104)) == TRUE) {
/* "Modified buffers exist. Leave anyway" */
#if FILOCK
if (lockrel() != TRUE) {
TTputc('\n');
TTputc('\r');
TTclose();
TTkclose();
status = meexit(1);
}
#endif
if (f)
status = meexit(n);
else
status = meexit(GOOD);
}
mlerase();
return(status);
}
PASCAL NEAR meexit(status)
int status; /* return status of emacs */
{
eexitflag = TRUE; /* flag a program exit */
eexitval = status;
/* and now.. we leave and let the main loop kill us */
return(TRUE);
}
/*
* Begin a keyboard macro.
* Error if not at the top level in keyboard processing. Set up variables and
* return.
*/
PASCAL NEAR ctlxlp(f, n)
int f,n; /* prefix flag and argument */
{
if (kbdmode != STOP) {
mlwrite(TEXT105);
/* "%%Macro already active" */
return(FALSE);
}
mlwrite(TEXT106);
/* "[Start macro]" */
kbdptr = &kbdm[0];
kbdend = kbdptr;
kbdmode = RECORD;
return(TRUE);
}
/*
* End keyboard macro. Check for the same limit conditions as the above
* routine. Set up the variables and return to the caller.
*/
PASCAL NEAR ctlxrp(f, n)
int f,n; /* prefix flag and argument */
{
if (kbdmode == STOP) {
mlwrite(TEXT107);
/* "%%Macro not active" */
return(FALSE);
}
if (kbdmode == RECORD) {
mlwrite(TEXT108);
/* "[End macro]" */
kbdmode = STOP;
}
return(TRUE);
}
/*
* Execute a macro.
* The command argument is the number of times to loop. Quit as soon as a
* command gets an error. Return TRUE if all ok, else FALSE.
*/
PASCAL NEAR ctlxe(f, n)
int f,n; /* prefix flag and argument */
{
if (kbdmode != STOP) {
mlwrite(TEXT105);
/* "%%Macro already active" */
return(FALSE);
}
if (n <= 0)
return(TRUE);
kbdrep = n; /* remember how many times to execute */
kbdmode = PLAY; /* start us in play mode */
kbdptr = &kbdm[0]; /* at the beginning */
return(TRUE);
}
/*
* Abort.
* Beep the beeper. Kill off any keyboard macro, etc., that is in progress.
* Sometimes called as a routine, to do general aborting of stuff.
*/
PASCAL NEAR ctrlg(f, n)
int f,n; /* prefix flag and argument */
{
TTbeep();
kbdmode = STOP;
mlwrite(TEXT8);
/* "[Aborted]" */
return(ABORT);
}
/* tell the user that this command is illegal while we are in
VIEW (read-only) mode */
PASCAL NEAR rdonly()
{
TTbeep();
mlwrite(TEXT109);
/* "[Key illegal in VIEW mode]" */
return(FALSE);
}
PASCAL NEAR resterr()
{
TTbeep();
mlwrite(TEXT110);
/* "[That command is RESTRICTED]" */
return(FALSE);
}
PASCAL NEAR nullproc(f, n) /* user function that does NOTHING */
int n, f; /* yes, these are default and never used.. but MUST be here */
{
}
PASCAL NEAR meta(f, n) /* set META prefixing pending */
int f, n; /* prefix flag and argument */
{
prefix |= META;
prenum = n;
predef = f;
return(TRUE);
}
PASCAL NEAR cex(f, n) /* set ^X prefixing pending */
int f, n; /* prefix flag and argument */
{
prefix |= CTLX;
prenum = n;
predef = f;
return(TRUE);
}
PASCAL NEAR unarg() /* dummy function for binding to universal-argument */
{
}
/* bytecopy: copy a string...with length restrictions
ALWAYS null terminate
*/
char *PASCAL NEAR bytecopy(dst, src, maxlen)
char *dst; /* destination of copied string */
char *src; /* source */
int maxlen; /* maximum length */
{
char *dptr; /* ptr into dst */
dptr = dst;
while (*src && (maxlen-- > 0))
*dptr++ = *src++;
*dptr = 0;
return(dst);
}
/* copystr: make another copy of the argument
*/
char *PASCAL NEAR copystr(sp)
char *sp; /* string to copy */
{
char *dp; /* copy of string */
/* make room! */
dp = malloc(strlen(sp)+1);
if (dp == NULL)
return(NULL);
strcpy(dp, sp);
return(dp);
}
/***** Compiler specific Library functions ****/
#if RAMSIZE
/* These routines will allow me to track memory usage by placing
a layer on top of the standard system malloc() and free() calls.
with this code defined, the environment variable, $RAM, will
report on the number of bytes allocated via malloc.
with SHOWRAM defined, the number is also posted on the
end of the bottom mode line and is updated whenever it is changed.
*/
#undef malloc
#undef free
#if VMS & OPTMEM /* these routines are faster! */
#define malloc VAXC$MALLOC_OPT
#define free VAXC$FREE_OPT
#endif
char *allocate(nbytes) /* allocate nbytes and track */
unsigned nbytes; /* # of bytes to allocate */
{
char *mp; /* ptr returned from malloc */
char *malloc();
FILE *track; /* malloc track file */
mp = malloc(nbytes);
#if RAMTRCK
track = fopen("malloc.dat", "a");
fprintf(track, "Allocating %u bytes at %u:%u\n", nbytes,
FP_SEG(mp), FP_OFF(mp));
fclose(track);
#endif
if (mp) {
#if 0
envram += nbytes;
#else
envram += 1;
#endif
#if RAMSHOW
dspram();
#endif
}
return(mp);
}
release(mp) /* release malloced memory and track */
char *mp; /* chunk of RAM to release */
{
unsigned *lp; /* ptr to the long containing the block size */
#if RAMTRCK
FILE *track; /* malloc track file */
track = fopen("malloc.dat", "a");
fprintf(track, "Freeing %u:%u\n",
FP_SEG(mp), FP_OFF(mp));
fclose(track);
#endif
if (mp) {
/* update amount of ram currently malloced */
#if 0
lp = ((unsigned *)mp) - 1;
envram -= (long)*lp - 2;
#else
envram -= 1;
#endif
free(mp);
#if RAMSHOW
dspram();
#endif
}
}
#if RAMSHOW
dspram() /* display the amount of RAM currently malloced */
{
char mbuf[20];
char *sp;
TTmove(term.t_nrow - 1, 70);
#if COLOR
TTforg(7);
TTbacg(0);
#endif
sprintf(mbuf, "[%lu]", envram);
sp = &mbuf[0];
while (*sp)
TTputc(*sp++);
TTmove(term.t_nrow, 0);
movecursor(term.t_nrow, 0);
}
#endif
#endif